﻿Imports QuantumBitDesigns.Core
Imports System.Collections.ObjectModel
Imports System.Threading
Imports Hinshelwood.TFSHeatITSM.Controlers.Data.Entities

Module HeatExtensions


    <System.Runtime.CompilerServices.Extension()> _
  Public Function GetTfsId(ByVal cl As CallLog) As Integer?
        Dim content As String = cl.RefNo
        If content Is Nothing Then
            Return Nothing
        End If
        If content.StartsWith("TFS") Then
            Dim id As Integer = CInt(content.Substring(3))
            Return id
        Else
            Return Nothing
        End If
    End Function


End Module